home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 1 / The Arsenal Files (Arsenal Computer).ISO / pascal / tspa33.txt < prev    next >
Internet Message Format  |  1993-09-05  |  12KB
  1. From: ts@chyde.uwasa.fi (Timo Salmi)
  2. Subject: tspa33*.zip Turbo Pascal units for (real:-) programmers
  3. Date: Mon, 16 Aug 1993 08:53:36 GMT
  4.  
  5.  102298 Aug 16 08:46 garbo.uwasa.fi:/pc/ts/tspa3340.zip
  6.  105160 Aug 16 08:46 garbo.uwasa.fi:/pc/ts/tspa3350.zip
  7.  107085 Aug 16 08:46 garbo.uwasa.fi:/pc/ts/tspa3355.zip
  8.  107260 Aug 16 08:46 garbo.uwasa.fi:/pc/ts/tspa3360.zip
  9.  107733 Aug 16 08:46 garbo.uwasa.fi:/pc/ts/tspa3370.zip
  10.  
  11. Mon 16-Aug-93: Based on some welcome feedback and on my own
  12. observations I have released an update of my Turbo Pascal units
  13. collection. It is now garbo.uwasa.fi:/pc/ts/tspa33*.zip where * =
  14. 40,50,55,60,70.
  15. Added to unit TSUNTC the reversal of enabling hi-intensity
  16. background
  17.   BLBACK "Cancel HIBACK enabling usage of blinking text"
  18. Added to TSUNTG
  19.   ISRAMFN "Is a drive a probable ramdisk"
  20. Corrected a bug giving occasional random results in TSUNTH
  21.   LASTDRFN "Get last drive of the system, softcoded, not XTs"
  22. If you have used LASTDRFN, you should compile your program anew.
  23. Added to TSUNTJ
  24.   ISDIR3FN "Is a name a directory or not", a slower and surer method
  25. see garbo.uwasa.fi:/pc/ts/tsfaqp*.zip for details of ISDIR3FN.
  26. Reprogrammed in TSUNTENV unit
  27.   SETENV "Set a parent environment variable (variable=value)"
  28. It now accepts equal signs in the 'value'. I also added an example
  29. to TSUNTENV.TST to show how to set several environment variable
  30. values.
  31. Moved to a new TSUNTBOT unit from TSUNTG
  32.   COLDBOOT "Reboot computer, including memory tests"
  33.   WARMBOOT "Warm reboot of the computer (as alt-ctrl-del)"
  34. and added to this new unit
  35.   REBOOT   "Reboot computer with disk closing and cache flushing"
  36. -------------------------------------------------------------------
  37.  
  38. TSUNTA: (uses Dos, Crt, TSUNTE)
  39.   ATTRIBFN Color attribute for direct write to video memory
  40.   HIGHTFN  Current height of text screen
  41.   PANML    Scroll screen left
  42.   PANMR    Scroll screen right
  43.   VDAEXYFN Direct read of a screen video memory color attribute
  44.   VDCHXY   Direct read from the screen video memory
  45.   VIDXY    Direct write to the screen video memory
  46.   WIDTHFN  Current width of the text screen
  47.  
  48. TSUNTB: (uses Dos)
  49.   BBINFN   Convert decimal byte to binary string
  50.   BHEXFN   Convert decimal byte to hexadecimal string
  51.   BINDECFN Convert binary string to decimal word
  52.   BINFN    Convert decimal word to binary string
  53.   BITONFN  Boolean status of a bit in a word
  54.   BTEWRDFN Combine two bytes into a single word, inverse of Hi & Lo
  55.   CONVBFN  Convert a number (string) of any base to any other base
  56.   HEXDECFN Convert hexadecimal string to decimal word
  57.   HEXFN    Convert decimal word to hexadecimal string
  58.   HEXLNGFN Convert hexadecimal string to decimal longint up to 7FFFFFFF
  59.   HIWORDFN The high-order (hi) word of the longint argument
  60.   LBINFN   Convert decimal longint to binary string
  61.   LHEXFN   Convert decimal longint to hexadecimal string
  62.   LOWORDFN The low-order (lo) word of the longint argument
  63.   POWERFN  Conventional raising of a positive real to a power
  64.   POWERGFN Generalized raising of any real to a real power
  65.   POWERLFN Raise longint to a non-negative integer power fast
  66.   R16TOFN  Sixteen to a power fast (word)
  67.   TICKSFN  Count of 18.2 times per second ticks (longint)
  68.   TIMERFN  Seconds elapsed since midnight (real)
  69.   TWOTOFN  Two to a power fast (word)
  70.   WRDLNGFN Combine two words into a longint
  71.  
  72. TSUNTC: (uses Dos, Crt)
  73.   BLBACK   Cancel HIBACK enabling usage of blinking text
  74.   HIBACK   Enable hi-intensity (bright) background colors
  75.   PLAYNOTE Play a note
  76.   REVCOLOR Reverse text colors (a toggle)
  77.  
  78. TSUNTD: (uses Dos)
  79.   AUDIO    Enhanced Sound procedure, no Crt unit needed
  80.   DOSDELAY Delay without needing the Crt unit
  81.   GETPRTFN Get the number of printer default timeout retry times
  82.   LEADFN   Lead a string with a multiple character (i.e. pad left)
  83.   LOWCASFN The opposite of UpCase (inline coded)
  84.   LPTONLFN Get the online status of the first parallel printer
  85.   PARSE    Extract all substrings from a string faster (1st method)
  86.   PARSENFN Number of substrings in a string (resembles ParamCount)
  87.   PARSERFN Get substrings from a string (resembles ParamStr)
  88.   PRTONLFN Get the online status of a printer (may fail)
  89.   PRTSCR   Print the current screen
  90.   SETPRT   Set the number of default printer timeout retry times
  91.   SPARTFN  Returns a specified substring (resembles ParamStr)
  92.   STRCNTFN Number of substrings in a string (resembles ParamCount)
  93.   TRAILFN  Trail a string with a multiple character (i.e. pad right)
  94.   TRIMLFFN Trim a string left
  95.   TRIMRGFN Trim a string right
  96.  
  97. TSUNTE: (uses Dos)
  98.   ALLSIZFN Allocated true size of a file in bytes
  99.   ARCFILFN Is a file's archive bit set or not
  100.   BORDER   Change border color (CGA, VGA)
  101.   CAPS     Turn CapsLock on, or off
  102.   CAPSONFN Get CapsLock status
  103.   CLB      Clear the keyboard buffer
  104.   CLUSIZFN Cluster size on a device (cluster is the allocation unit)
  105.   CMDLNFN  Returns the entire command line
  106.   CURSOFF  Turn off cursor (keeps other cursor attributes)
  107.   CURSON   Turn cursor back on as it was
  108.   CURSOR   Change cursor size
  109.   DATEOKFN Is a date a valid, existing date
  110.   DEFDRVFN Get the default drive
  111.   FEXISTFN File existence status, handles ReadOnly files correctly
  112.   FSIZE2FN File size in bytes, alternative method
  113.   FSIZEFN  File size in bytes as in directory (never on open file)
  114.   HIDFILFN Is a file a hidden file or not
  115.   LABELFN  Get a disk's volume label
  116.   LASTDMFN The number of days in a given month and year
  117.   MONOFN   Is it a monochrome video adapter
  118.   NUMLOCK  Turn NumLock on, or off
  119.   NUMLONFN Get NumLock status
  120.   RDOFILFN Is a file a read-only file or not
  121.   SCRLOCK  Turn ScrollLock on, or off
  122.   SCRLONFN Get ScrollLock status
  123.   SYSFILFN Is a file a system file or not
  124.   WEEKNRFN Returns the week number for a given date
  125.   WKDAYFN  Returns modern weekday
  126.   ZELLERFN Zeller's congruence (for comparing dates etc)
  127.  
  128. TSUNTF: (uses Dos, Crt)
  129.   EDRDEBLN Editable Readln with ctrl-c, break trapping, pre-fill etc
  130.   EDRDEFLN Editable Readln with recall, pre-fill, and insert toggle
  131.   EDRDLN   Readln with line-editing potential (the simplest)
  132.   EDREABLN Edreadln with ctrl-c and break trapping
  133.   EDREADLN Editable Readln with recall, and insert toggle
  134.  
  135. TSUNTG: (uses Dos)
  136.   ACTDRVFN Which floppy drive is active on a one drive system
  137.   ALTFN    Is the alt key depressed
  138.   CLS      Set 25*80 text mode and clear screen (no Crt required)
  139.   CLS40    Set 25*40 text mode and clear screen (no Crt required)
  140.   CTRLFN   Is the ctrl key depressed
  141.   DRIVESFN Number of diskette drives on the system
  142.   DSKCNTFN Get the number of disk devices (MsDos 3.0+)
  143.   FDRIVEFN The name of the first diskette drive on the system
  144.   FIXEDFN  Is a drive a fixed disk or not
  145.   FLOPSTFN Floppy disk status. Is it present and formatted.
  146.   GETESCAN Get scancode of key pressed, enhanced keyboard.
  147.   GETSCAN  Get scancode of key pressed, XT keyboard.
  148.   GOATXY   As the ordinary GoToXY but no Crt unit required
  149.   INDRIVFN Is a media present in the given drive
  150.   INKEYFN  Basic-like timed character input
  151.   ISANSIFN Has ansi.sys or a similar screen driver been loaded
  152.   ISRAMFN  Is a drive a probable ramdisk
  153.   ISUBSTFN Is a drive a substituted drive (MsDos 3.1+)
  154.   KEYPREFN As the ordinary KeyPressed but no Crt unit required
  155.   LFALTFN  Is the left alt key depressed
  156.   LFCTRLFN Is the left ctrl key depressed
  157.   LFSHFTFN Is the left shift key depressed
  158.   MEDIAFN  What kind of a disk media is present in a drive
  159.   RDENKEFN Enhanced keyboard ReadKey, detects also F11 and F12
  160.   READKEFN As the ordinary ReadKey but no Crt unit required
  161.   REVAREA  Reverse the colors of an area
  162.   RTALTFN  Is the right alt key depressed
  163.   RTCTRLFN Is the right ctrl key depressed
  164.   RTSHFTFN Is the right shift key depressed
  165.   SYSRQFN  Is the SysRq key depressed
  166.   USECON   Restore write and writeln direction to the screen
  167.   USEPRN   Redirect write and writeln to the printer
  168.   WHEREXFN As the ordinary WhereX but no Crt unit required
  169.   WHEREYFN As the ordinary WhereY but no Crt unit required
  170.  
  171. TSUNTH: (uses Dos)
  172.   COUNTRFN Get country code (MsDos 3.0+)
  173.   CPUFN    Get the type of the processor chip
  174.   DATEFMFN Country-dependent date format (MsDos 3.0+)
  175.   FATSFN   Get number of file allocation tables, not XTs
  176.   GRTABLFN Has MsDos GRAFTABL been loaded or not
  177.   INTERLFN Get interleave coefficient of a harddisk, not XTs
  178.   ISENHAFN To detect an enhanced keyboard
  179.   ISMOUSFN A simple true/true false test of mouse available
  180.   LASTDRFN Get last drive of the system, softcoded, not XTs
  181.   MATHCOFN Is a math coprocessor present
  182.   MOUSTAFN Status (type byte) of the mouse hardware and driver
  183.   NRCYLFN  Number of cylinders on a drive if media present (MsDos 3.2+)
  184.   PARPORFN Get the number of parallel ports (printers installed)
  185.   ROMDTEFN Get ROM BIOS version (date)
  186.   RS232FN  Get the number of serial ports
  187.   TIMEFMFN Country-dependent time format (MsDos 3.0+)
  188.   Z2ASZFN  Convert an Asciiz string into an ordinary ascii string
  189.  
  190. TSUNTI: (uses Dos)
  191.   BRANDEXE Store information within your program's .exe file (MsDos 3.0+)
  192.   CHKSUMFN Checksum selftest to detect any tampering (MsDos 3.0+)
  193.   USECOUNT Get the number of times the program has been used
  194.  
  195. TSUNTJ: (uses Dos)
  196.   COPYFILE Copy a file from within a Turbo Pascal program
  197.   INTRADDR Show the memory address to which the interrupt points
  198.   INTRLOCA Show the memory address where the interrupt is located
  199.   ISDIRFN  Is a name a directory or not (not for DRDOS)
  200.   ISDIR2FN Is a name a directory or not, alternative method
  201.   ISDIR3FN Is a name a directory or not, a slower and surer method
  202.   OPENEDFN Is an assigned textfile still open or not
  203.   PIPEDIFN Is the standard input from redirection
  204.   PIPEDNFN Is the standard output redirected to nul
  205.   PIPEDOFN Is the standard output redirected
  206.  
  207. TSUNTK: (uses Dos, TSUNTB)
  208.   BOOTDRFN Get boot device name (MsDos 4.0+)
  209.   GETSERFN Get disk's serial number (MsDos 4.0+)
  210.   GETVOLFN Special get disk volume label (MsDos 4.0+)
  211.   SETSER   Set floppy's serial number (MsDos 4.0+)
  212.  
  213. TSUNTL: (uses Dos)
  214.   ISEGAFN  Is at least an EGA present. No graph unit needed
  215.   NOLABEL  Delete a disk's volume label.
  216.   SCROLLDN Scroll down a window. No Crt unit needed
  217.   SCROLLUP Scroll up a window. No Crt unit needed
  218.   SETLABEL Set a disk's volume label.
  219.  
  220. TSUNTBOT: (uses Dos)
  221.   COLDBOOT Reboot computer, including memory tests
  222.   REBOOT   Reboot computer with disk closing and cache flushing
  223.   WARMBOOT Warm reboot of the computer (as alt-ctrl-del)
  224.  
  225. TSUNTENV: (uses Dos)
  226.   ENVADDFN Get the starting segment address of the parent environment
  227.   ENVSIZFN Get the size of the parent environment
  228.   ENVUSEFN Get the current use of the parent environment
  229.   SETENV   Set a parent environment variable (variable=value)
  230.   SETENVSH Set an environment variable for the duration of shelling
  231.   SHOWENV  Write the parent environment table on stdout (for testing)
  232.  
  233. SELFTEST.PAS: (uses Dos)
  234.   SELFTEST Selftest .exe file's size and date to detect tampering
  235.  
  236. TSUNT45: (Uses Dos)  (Needed for TP 4.0 only)
  237.   DosVersion Get Dos version
  238.   EnvCount   The number of strings contained in the DOS environment
  239.   EnvStr     The value of an environment string defined by index count
  240.   FExpand    Expand a file name into a fully qualified file name
  241.   GetCBreak  Get the state of Ctr-Break checking in DOS
  242.   GetEnv     The value of an environment string defined by string id
  243.   GetVerify  Get the status of the MsDos write verify flag
  244.   ParamStr0  The name of the program
  245.   SetCBreak  Set the state of Ctr-Break checking in DOS
  246.   SetVerify  Set the status of the MsDos write verify flag
  247.  
  248. TSERR: (Include verbal run-time error messages)
  249.  
  250. ..................................................................
  251. Prof. Timo Salmi      Co-moderator of comp.archives.msdos.announce
  252. Moderating  at  garbo.uwasa.fi anonymous FTP archives 128.214.87.1
  253. Faculty of Accounting & Industrial Management; University of Vaasa
  254. Internet:  ts@uwasa.fi  Bitnet:  salmi@finfun; FI-65101,   Finland
  255.